﻿'测点坐标
<Serializable()> Public Class TSPCoor
    ''' <summary>
    ''' 测量坐标系,V为正上方，H为右方向
    ''' </summary>
    ''' <remarks></remarks>
    Public Coor_V As Double = 0 '垂直向坐标
    Public Coor_H As Double = 0  '水平向坐标

    '定义坐标分量序号
    Public Enum CoorVH
        Vertical = 0
        Horizontal = 1
    End Enum

    Public Sub New(ByVal V As Double, ByVal H As Double)
        Coor_V = V
        Coor_H = H
    End Sub

    ''' 坐标文本输出8位：   （V，H）
    Overrides Function ToString() As String
        Dim sTmp As String = ""
        sTmp &= String.Format("{0,8}", String.Format("{0:0.0000}", Coor_V)) & ","
        sTmp &= String.Format("{0,8}", String.Format("{0:0.0000}", Coor_H))
        Return sTmp
    End Function

End Class
